home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / sort / numbers / floattest.e < prev    next >
Encoding:
Text File  |  1995-05-20  |  407 b   |  31 lines
  1. MODULE 'oomodules/sort/numbers/float'
  2.  
  3. PROC main()
  4. DEF flt:PTR TO float,
  5.     fl2:PTR TO float
  6.  
  7.   NEW flt.new()
  8.   NEW fl2.new()
  9.  
  10.   flt.set(3.5)
  11.   fl2.set(2.0)
  12.  
  13.   WriteF('a=\s\n', flt.write())
  14.  
  15.   flt.add(fl2)
  16.  
  17.   WriteF('+b=\s\n', flt.write())
  18.  
  19.   flt.substract(fl2)
  20.  
  21.   WriteF('-b=\s\n', flt.write())
  22.  
  23.   flt.neg()
  24.  
  25.   WriteF('-a=\s\n', flt.write())
  26.  
  27.   flt.divide(fl2)
  28.  
  29.   WriteF('a/-b=\s\n', flt.write())
  30. ENDPROC
  31.